﻿Imports Logica
Imports Microsoft.Office.Interop

Public Class Usuarios

    ''' <summary>
    ''' Abre modificar contrasena
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks>Creado por: David Murillo Creado: 12/06/2010
    ''' Modificado: 28/06/2010</remarks>
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim modificarCont As New ModificarContrasenna(Gestor.usuarioActual("identificacion")) 'm_identificacion

        modificarCont.ShowDialog()

    End Sub

    ''' <summary>
    ''' Abre recuperar contrasena
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks>Creado por: David Murillo Creado: 12/06/2010
    ''' Modificado: 28/06/2010</remarks>
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim recuperarCont As New RecuperarContrasenna

        recuperarCont.ShowDialog()

    End Sub

    ''' <summary>
    ''' descargar el curriculo
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks>Creado por: David Murillo Creado: 12/06/2010
    ''' Modificado: 28/06/2010</remarks>
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Dim curriculo As Word.Document
        Dim sf As New SaveFileDialog
        Dim nombre As String
        Dim primerApellido As String
        Dim segundoApellido As String
        Dim datosUsuario As Hashtable


        Try

            curriculo = Gestor.usuarioObtenerCurriculo(Gestor.usuarioActual("identificacion")) 'en vez de este numero de cedula, es el de la pantalla
            datosUsuario = Gestor.usuarioBuscar(Gestor.usuarioActual("identificacion")) 'en vez de este numero de cedula, es el de la pantalla

            nombre = datosUsuario("nombre")
            primerApellido = datosUsuario("primerApellido")
            segundoApellido = datosUsuario("segundoApellido")
            sf.FileName = "Currículo de " & nombre & " " & primerApellido & " " & segundoApellido & ".docx"
            sf.Filter = ("Documento de Word (*.doc, *.docx)|*.doc;*.docx")

            If sf.ShowDialog() = DialogResult.OK Then
                curriculo.SaveAs(sf.FileName)
                lblError.ForeColor = Color.Green
                lblError.Text = "Documento descargado exitosamente."
                curriculo.Close()
            End If



        Catch es As SqlClient.SqlException When es.Number.Equals(4060)

            lblError.ForeColor = Color.Red
            lblError.Text = "Error de conexión con la base de datos."

        Catch ex As Exception

            lblError.ForeColor = Color.Red
            lblError.Text = "Error al cargar el documento."
        End Try

    End Sub

    ''' <summary>
    ''' subir
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks>Creado por: David Murillo Fecha de Creación: 12/06/2010
    ''' Ultima modificación: 22/06/2010</remarks>
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        Dim ofd As New OpenFileDialog
        Dim path As String
        Dim wordApp As New Word.Application
        Dim wordDoc As Word.Document
        Dim curriculo As String

        ofd.Filter = "Documento de Word (*.doc, *.docx)|*.doc;*.docx"
        ofd.Multiselect = False
        ofd.ShowDialog()
        path = ofd.FileName

        Try

            ' Obtiene el documento del directorio seleccionado.
            wordDoc = wordApp.Documents.Open(path)

            ' Obtiene el XML del documento.
            curriculo = wordDoc.Content.XML
            wordDoc.Close() ' Se cierra el documento para terminar el proceso.

            Gestor.subirCurriculo(curriculo)
            lblError.ForeColor = Color.Green
            lblError.Text = "Cargado exitoso."

        Catch ex As Exception
            lblError.ForeColor = Color.Red
            lblError.Text = "Error al cargar el documento."
        End Try


    End Sub

End Class
